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April 25,19bO 


BALLY GAME CARTRIDGES te be expected later this year are Demolition Derby 
and Dogpatcfa. RCM chip orders were placed at the end of March. 

CCMPUTER/ELECTRONIC SURPLUS FREAKS and others are invited to attend the 
5th Annual California Computer Swap Meet to be held at the Santa Clara County 
Fairgrounds on June 1, 10 to 6. Last year's show had a mix of individuals 
selling flea market stuff and stores/manufacturers selling their wares. 

Free to buyers, $25 for flea market sellers. If interested in table space, 
call John Craig at 415-324-2404 

NEW ADDITION to my house is a telephone line with the number 408-258-4586. 

(I have a teen-age daughter, nuff said) 

PROJECT THREE refers to the TRS-80 interface. A few more words on this. It 
is planned to provide a kit with a printed circuit board and a minimum of 
parts installed. Four sockets would allow the insertion of 4K of RAM in 
IK increments, and this will occupy the address space left vacant by the 
upper half of BASIC (12288 to 16383o ) so that machine code may be run. 

BIBLE, quiz is a teaching device that requires some pre-activity in loading 
question/answer segments. First punch in the program to line 5020, and 
store it on tape. Do not rewind, but let about 10 seconds of blank’space be 
recorded. Then follow the instructions on page 49 and load a question/answer 
segment into the Bally. Load that onto tape, and again leave about 10 seconds 
of space. Continue with segments as desired. When finished, the tape can be 
rewound and loaded into the Bally. When the game starts, shut off the recorder 
and answer the question. Once that is done, start the recorder again and it 
will automatically replace the question/answer with a new one. If you seem 
to get illogical questions/answers, it means that the separation between them 
on the tape is not great enough, or you are moving too slowly. 


g^LVAGE BOARDS are here and available. I haven't had much chance te dig inte 
them, but the are fully stuffed, with keypad switches and cartridge slit. 

SPA CE WAR CORRECTION mentioned last issue requires that line 210 be modified 
te read GOTO 30 instead ef GOTO 130. 

gTATIC ELECTRICITY can cause havoc and failure ef the machine. One subscriber 
has added a separate ground wire between the metal parts of the hand control¬ 
ler and the metalwork inside the Bally. 

SAW DISTRICTING is the national distributor for all Bally products 
(except those sold through Montgomery Ward). Jack Nieman, formerly national 
sales manager for Bally Consumer Products is now actively involved in this 
operation, and has indicated that S & W will assist Arcade owners in purchas- 
60?63*^3*2^449-5000 dlSC#Unt f ° r ARCADI *Ns. 5300B McDemott Dr. Berkeley IL 
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1 .BIBLE QUIZ V." VUI , 

2 -BY B HENSEL * 

3 1=0;J=0 

4 F=2 

5 :RETURN ;CLEAR ;T=0 

6 @( 1) = I;@C 2 )=J 

10 &( 9)=30;BC=190;FC=40 
20 &( 0)=96;&(1)=96 
30 &(2)=7;&(3)=7 
40 CLEAR ;CY=38 
50 PRINT " BIBLE QUIZ 
55 BOX -27,30,55,11,3 
62 CX=55;CY=35;PRINT "ONE 
70 BOX 60,20,25,40,3 
72 BOX 60,30,26,1,3 
74 CX=55;CY=-9;PRINT "TWO 
80 BOX 60,-24,26,40,3 
90 BOX 60,-14,26,1,3 
95 CY=20 

102 P=1;GOSUB 700 
104 P=2;GOSUB 700 
110 PRINT " WHO SET FIRE TO 
120 PRINT " THREE HUNDRED 
130 PRINT “ FOXES TAILS? 

135 PRINT 

140 PRINT ’ A. ADAM 

150 PRINT " B. RUTH 

160 PRINT * C. SAMSON 

170 PRINT “ D. CAIN 

180 C=3 

200 P=0 — 

210 IF TR(1)=1P=1;Y=35 

220 IF TR(2)=1P=2;Y=-9 

230 IF P=0GOTO 210 

235 BOX 60,Y,24,8,3 

2 40 F OR A=1T0 500;NEXT A 

245 BOX 60,Y,24,8,3 

250 A=1 

260 CY=-5-(Ab8) 

265 BOX 60,Y,24,8,3 
270 PRINT " a - 

280 FOR B=1T0 50 « JL. 

290 IF TR(P)=lGOTO 350 CMCUTACV** 1 

300 NEXT B —^ 

302 BOX 60,Y,24,8,3 
305 CY=-5-(Ab8);PRINT " 

310 A=A+1 

320 IF A>4A=1;T=T+1 

322 IF T<5G0T0 260 

323 NT=10 

324 MU=49;MU=48;MU=48;MU=48;MU=48; I 

325 Y=35;IF P=2Y=-9 

329 NT=3 

330 GOTO 260 
350 PRINT 
360 CY=-40 
365 NT=10 



BIBLE 0TTT7 
By Bob Hensel 

OTLE QUIZ is a two player game. 

ed on ^° n Ut the Bible is P rint “ 
ed on the screen with four multiple 

choice answers, if a player knows 
the answer he pulls his trigger. 
arrow moves alongside the answers. 
«n 6n th ® arrow Points to the proper 
answer the player again pulls his 
trigger. If he is correct a portion 
of a man will appear in his score 
box, else a portion will be taken 

- d the correct answer indicated 
The screen then goes blank. The tape 
recorder shouid then be turned on ? 
to read the next question into the 
computer. Then the images again 
appear on the screen, turn off the 

additi er ‘i 1 haVe recorded some 
tAni t i? nal *? Ueations on the enclosed 
tape directly following the program, 
ihen the program is loaded the game 
W1U sta rt to RUN by itself. T ^n 
off the recorder immediately. 
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BIBLE QUIZ 
By Bob Hensel 

BIBLE QUIZ is a two player game. 

A question about the Bible is print¬ 
ed on the screen with four multiple 
choice answers. If a player knows 
the answer he pulls his trigger. An 
arrow moves alongside the answers. 
When the arrow points to the proper 
answer the player again pulls his 
trigger. If he is correct a portion 
of a man will appear in his score 
box, else a portion will be taken 
away and the correct answer indicated 
The screen then goes blank. The tape 
recorder should then be turned on 
to read the next question into the 
computer. When the images again 
appear on the screen, turn off the 
recorder. I have recorded some 
additional questions on the enclosed 
tape directly following the program. 
When the program is loaded the game 
will start to RUN by itself. Turn 
off the recorder immediately. 
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102 

104 

110 

120 

130 

135 

140 

,150 

160 

170 


.BIBLE QUIZ 
.BY B HENSEL 
1=0;J=0 

F=2 v 

:RETURN ;CLEAR ;T=0 j - 
@C1)=I;@(2 )=J 
&C9)=30;BC=190;FC=40 
&(0 )=96;&(1 )=96 
&(2)=7;&(3 )=7 
CLEAR ;CY=38 
PRINT * BIBLE QUIZ 
; BOX -27,38,66,11,3 
CX=55;CY=35;PRINT "ONE 
I BOX 60,20,26,40,3 
BOX 60,30,26,1,3 
I CX=55;CY=-9;PRINT "TWO 
BOX 60,-24,26,40,3 
I BOX 60,-14,26,1,3 
; CY=20 

P=1;GOSUB 700 
P=2;GOSUB 700 
PRINT ” WHO SET FIRE TO 
THREE HUNDRED 
FOXES TAILS? 



200 P= 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

C=3 


A. ADAM 

B. RUTH 

C. SAMSON 

D. CAIN 


210 
220 
230 
1235 
240 
245 
l ?50 
260 
265 
270 
280 
290 
300 
302 
305 
310 
320 

322 

323 

324 

325 

329 

330 
350 
j360 

365 

366 


IF TR(1)=1P=1;Y=35 
IF TR(2)=1P=2;Y=-9 
IF P=0GOTO 210 
BOX 60,Y,24,8,3 
FOR A=1T0 500;NEXT A 
BOX 60,Y,24,8,3 
A=1 

CY—5-C Ab8) 

BOX 60,Y,24,8,3 
PRINT " a 
FOR B=1T0 50 
IF TR(P)=lGOTO 350 
NEXT B 

BOX 60,Y,24,8,3 
CY=-5-(Ab8);PRINT “ 
A=A+1 

IF A>4A=1;T=T+1 
IF T<5G0T0 260 
NT=10 


| BIBLE QUIZ-1 


U/No UJAS THRWM 
I A/7'0 4 LIONS 3EW ? 

A. ADA/n 
8. UAnXEL 

C. JESUS 

D, moS£S 





b means mol+ipU 
C tneaws dwide 


BIBLE QUIZ 

By Bob Hensel 

BIBLE QUIZ is a two player game. 

A question about the Bible is print¬ 
ed on the screen with four multiple 
choice answers. If a player knows 
the answer he pulls his trigger. rt n 
arrow moves alongside the answers. 

7,’hen the arrow points to the proper 
answer the player again pulls his 
trigger. If he is correct a portion 
of a man will appear in his score 
box, else a portion will be taken 
away and the correct answer indicated 
The screen then goes blank. The tape 
recorder should then be turned on 
to read the next question into the 
computer. Then the images again 
appear on the screen, turn off the 
recorder. 

MU=49;MU=48;MU=48;MU=48;MU=48;T=0;P=P+1;IF P=3P=1 

Y=35;IF P=2Y=-9 

NT=3 

GOTO 260 

CY=-40 MOTE the new character a in line 2?0 This signifies the right arrow 
NT=10 which the printer will not recognize. 

Y=0 

is 
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370 IF R=CGOSUB 500 

380 IF R#CGOSUB G00 

385 NT=3;FOR R=1T0 1000;NEXT ft 

387 IF @CP)=10GOSUB 3000 

390 GOTO 5000 

500 @(P)=@CP)+1 

510 GOSUB 700 

520 MU=49; GOSUB 595; t1U=51; GOSUB 595; NU=53; GOSUB 595 
530 MU=5G;GOSUB 595;MU=48;GOSUB 595;MU=53;GOSUB 595 

540 MU=5G;GOSUB 595;MU=48;GOSUB 595;MU=48;GOSUB 595;MU=48;GOSUB 595;MU=4B 

550 GOSUB 595 

595 BOX G0,20+Y,24,38 f 3 

599 RETURN 

G00 IF @(P)=0GOTO G50 
G02 F=1 

G10 E=@(P)b10+700 
G20 GOSUB E 
630 F=2 

G40 @(P)=@CP)-1 
G50 GOSUB 595 

660 MU=34;MU=48;MU=48;MU=34;MU=48;MU=34;MU=34;MU=48;MU=48 

670 MU=3G;MU=48;MU=35;MU=35;MU=48;MU=34;MU=34;MU=48;MU=33;MU=34;MU=48;NU=48 
675 CY—5-(flb8);PRINT * ";CY=-5-(Cb8);PRINT * a 

699 RETURN 


700 Y=0;IF P=2Y—44 
710 IF @(P)>0BOX 60,26+Y, 5,5, F 
720 IF P ) >1B0X 60,18+Y,7,10,F 
730 IF @(P)>2B0X 55,18+Y,2,10,F 
740 IF @( P ) >3B0X 66,18+Y,2,10,F 
750 IF @(P)>4B0X 58,8+Y,2,10,F 
760 IF @C P ) >5B0X 63,8+Y,2,10,F 
770 IF @(P)>6B0X 53,14+Y,2,2,F 
780 IF @(P)>7B0X 68,14+Y,2,2,F 
790 IF @C P)>8B0X 56,4+Y,2,2,F 
800 IF @(P ) >9B0X 65,4+Y,2,2,F 
830 RETURN 

3000 BOX -20,-5,120,74,2 

3010 CY=5;PRINT * THE WINNER IS: 

3020 PRINT 

3030 PRINT * PLRYER ", 

3040 IF P=1PRINT 'ONE* 

3050 IF P=2PRINT "TWO" 

3060 FOR R=1T0 3000;NEXT fi 

3070 1=0;J=0 

5000 I=@(1);J=@(2) 

5010 FC=BC;&(9)=50 
5020 :INPUT 


To record new questions for this 
game on a tape do the following: 

Push RESET 
5 STOP 

109 .QUESTIONS 


110 PRINT "WHO DISCOVERED 
120 PRINT "AMERICA IN 1492? 

130 PRINT " 

140 PRINT « A. WASHINGTON 

150 PRINT « B. COLUMBUS 

160 PRINT " C. CARTER 

170 PRINT " D. DESOTO 

180 C 2 

:PRINT;NT 1;LIST 109 
turn on the tape recorder, press GO 
after the listing is done enter 
GOTO 5 

press GO and turn off the recorder. 

Note: C 1 if the answer is A, 

2 if the answer is B, etc. 


The program can be easily changed 
to be used for any educational type 
testing game by changing the title 
and making appropriate questions. 








To record new questions for this 
game on a tape do the following: 

Push RESET 
5 STOP 

109 .QUESTIONS 

110 PRINT "WHO DISCOVERED 
120 PRINT "AMERICA IN 1492? 

130 PRINT " 

140 PRINT " A. WASHINGTON 

150 PRINT " B. COLUMBUS 

160 PRINT « C. CARTER 

170 PRINT " D. DESOTO 

180 C 2 

:PRINT;NT 1;LIST 109 
turn on the tape recorder, press GO 
after the listing is done enter 
GOTO 5 

press GO and turn off the recorder. 

Note: C 1 if the answer is A, 

2 if the answer is B, etc. 

The program can be easily changed 
to be used for any educational type 
testing game by changing the title 
and making appropriate questions. 
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370 

380 

385 

387 

390 

500 

510 

520 

530 

540 

550 

595 

599 

800 

602 

810 

820 

630 

640 

650 

660 

670 

675 

699 

700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
830 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

5000 

5010 



(SiBLe Gioiz, Co«+\ 

IF P=2Y=-44 
IF fi=CGOSUB 500 
IF R#CGOSUB 600 
NT=3;FOR R=1T0 1000;NEXT R 
IF @CP)=10GOSUB 3000 
GOTO 5000 
@(P)=@CP>+1 
GOSUB 700 

MU=49;GOSUB 595;MU=51;GOSUB 595;MU=53;GOSUB 595 
MU=5G;GOSUB 595;MU=48;GOSUB 595;MU=53;GOSUB 595 

MU=56;GOSUB 595;MU=48;GOSUB 595;MU=48;GOSUB 595;MU=48;GOSUB 595;MU=48 
GOSUB 595 

BOX 60,20+Y,24,38,3 
RETURN 

IF @CP)=0GOTO 650 
F=1 

E=@( P)b10+700 

GOSUB E 

F=2 

@(P)=@(P>-1 
GOSUB 595 

MU=34;MU=48;MU=48;MU=34;MU=48;MU=34;MU=34;MU=48;MU=48 

MU=36;MU=48;MU=35;MU=35;MU=48;MU=34;MU=34;MU=48;MU=33;MU=34;MU=48;MU=48 

CY=-5-(Rb8);PRINT ” ";CY—5-<Cb8);PRINT ' a 

RETURN 

To record new questions for this 
game on a tape do the following: 




Y=0;IF P=2Y=-44 
IF @CP)>0BOX 60,26+Y, 5,5, F 
IF @(P ) >1B0X 60,18+Y,7,10,F 
IF @C P)>2B0X 55,18+Y,2,10,F 
IF @C P ) >3B0X 66,18+Y,2,10,F 
IF @C P)>4B0X 58,8+Y,2,10,F 
IF P)>5B0X 63,8+Y,2,10,F 
IF P)>6B0X 53,14+Y,2,2,F 
IF @CP)>7B0X 68,14+Y,2,2,F 
IF @(P)>8B0X 56,4+Y,2,2,F 
IF @C P)>9B0X 65,4+Y,2,2,F 
RETURN 

BOX -20,-5,120,74,2 

CY=5;PRINT “ THE WINNER IS: 

PRINT 

PRINT " PLflYER ", 

IF P=1PRINT "ONE" 

IF P=2PRINT “TWO” 

FOR R=1T0 3000;NEXT R 

1=0;J=0 

I=@C1);J=@(2) 

FC=BC;&(9)=50 
:INPUT 


Push RESET 
5 STOP 

109 .QUESTIONS 

110 PRINT "WHO DISCOVERED 
120 PRINT "AMERICA IN 1492? 
130 PRINT « 


WASHINGTON 

COLUMBUS 

CARTER 

DESOTO 


140 PRINT 
150 PRINT » B 

160 PRINT " C 

170 PRINT » D 

180 C=2 
: PRINT;NT 1;LI3T 109 
turn on the tape recorder, press GO 
after the listing is done enter 
GOTO 5 

press GO and turn off the recorder. 

Note: C=1 if the answer is A, 

C=2 if the answer is B, etc. 

The program can be easily changed 
to be used for any educational type 
testing game by changing the title 
and making appropriate questions. 
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590 BOX 40,15,8,10,1 

G0(0 LINE -70,10,0 

610 FOR A=-65T0 65STEP 10 

620 LINE R,-10,3;LINE R+5,10,3 


3 .BLRCK HOLE ' \ 

10 CLERR ;NT=0;&(22)=200;FC=7;BC=8 
20 CY=05PRINT " THE BLRCK HOLE - ’ 

30 FOR R=255T0 0STEP -1;&(18)=A;NEXT 

40 CLERR ;CY=40 ____ 

50 PRINT ■ SELECT SKILL LEUEL";PRINT " TO ORBIT*;PRINT 
60 PRINT * l.ERSY*;PRINT * 2.MODRRTE*;PRINT * 3.HRRD* 

70 INPUT "ENTER NUMBER TO GO'S 
80 H=0;O=0 

90 IF (SCI)+(S>3)G0T0 10 

100 CLERR ;FC=7;BC=0;&(22)=200;&(16)=235;&C18 )=23&; &C20 )-Z00 
110 FOR R=1T0 50;BOX RND (160)-80,RND (80 )-40,1,1,ljNEXT R 
170 X=-75;Y=40;B=0;C=0;M=0;N=15;D=-5;E=0 
180 F=100;&(231=255;BOX 0,0,7,7,1;BOX 0,0,5,5,2 

200 IF M>0D=D-1 

201 IF M<0D=D+1 

202 IF N>0E=E-1 

203 IF N< 0E=E+1 , _ 

210 BOX X,Y,3,3,3;BOX M,N,8,2,3;B OX M+2,N+l,1,2,3 
220 I=JX(1);J=JY(1 ) 

230 IF F<1PRINT "NO FUEL";1=0;J=0 

235 IF I+0&C 21)=255 

236 IF J#0&(21)=255 

237 IF I=0IF J=0&(21)=B 

240 IF I#0BOX X-Ib2,Y,3,1,3;F=F-1 

241 IF J*0BOX X,Y-Jb2,1,3,3;F=F-1 
245 U=X;U=Y;B=B+I;C=C+J 
250 CY=44;PRINT #4,F,#4,H,#3,0 
280 IF X>0B=B-1 
261 IF X<0B=B+1 


640 NEXT R 
|G50 LINE -70,-10,0 
660 FOR fl=-65T0 65STEP 10 | 
670 LINE R,10,3;LINE A+5,-10, 
690 NEXT R 
698 X=-70;Y=-30 
700 FOR e-l-TO 250 


710 BOX X,Y,3,3,3 
720 BOX X,Y,3,3,3 
*730 X=X+JX(1);Y=Y+JY(1) 

740 NEXT R 

900 FOR fi=lTO 2000;NEXT R 
910 GOTO 100 

1000 CLERR ;H=H+1;&C21 )=0 

1010 PRINT " LOST IN THE BLACK HOLE- 

1015 FOR R=1T0 500;NEXT R;CLEAR 


1020 BOX 0,10,30,20,1;BOX 

1021 LINE -10,0,1;LINE -2t 
1030 FOR fl=200TO 0STEP -1 

1040 BC=fl;&( 9)=192;&( 0)=A+18;&( 1)=A+23 
1050 &(2 )=A+35;&(3 )=fi+38;&C 9 )=40 
L060 &(20)=fl;&( 18)=R;&( 16)=R 
1070 NEXT R;&(22)=0;CLEAR ;^OTO 900 


20,-30,10,6,1;BOX 20,-30,10,6,1 
-30,1;LINE 20,-30,1;LINE 10,0,1 


262 IF Y>0C=C 

263 IF Y<0C=C+1 

265 IF X>78X=-78 

266 IF X<-78X=78 

267 IF Y >40Y=-40 

268 IF Y<-40Y=40 
270 X=X+B;Y=Y+C 
280 IF X<5IF X>-5IF Y<5IF Y>-5G0T0 1000 

290 IF S=1IF X>14IF X<16IF Y<10IF Y>-10IF C=5G0T0 500 

300 IF S=2IF X=15IF C=5IF Y>-5IF Y<5G0T0 500 

310 IF S=3IF X=15IF C=5IF Y=0IF B=0GOTO 500 

320 BOX U,0,3,3,3;BOX M,N,8,2,3;BOX M+2,N+l,1,2,3 

330 IF I#0EOX U-Ib2,U,3,1,3 

340 IF J#0BOX U,U-Jb2,1,3,3 

350 M=M+D;N=N+E 

360 GOTO 200 

500 CLERR ;&(21)=0;0=0+1 

510 CY=0; PRINT "IN ORBIT NERR THE CYGUS" 

520 FOR A=1T0 500.; NEXT A; CLERR 

530 FOR A=1T0 50;BOX RND (160)-80,RND (80 )-40,1,1,1;NEXT R 
540 BOX 0,0,100,10,1 
550 BO X 50,7,40,10,1 

555 BOX 0,30,15, 1.5,1; BOX 0,30,11,11,2 
560 BOX 50,-7,40,10,1 
570 BOX 0,10,140, 1,1 

580 BOX 0,-10,140,1,1 -- 



1 . 
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590 BOX 40,15^8,id,i- 

600 LINE -70,10,0 

610 FOR fl=-65T0 65STEP 10 

620 LINE A,-10,3;LINE ft+5,10,3 


TO ORBIT";PRINT 
2.MODRRTE";PRINT * 3.HARD" 


mm 

! 3 . BLACK HOLE p-, 

10 CLEAR ;NT=0;&( 22)=200;FC=7;BC=8 
20 CY=0;PRINT “ THE BLACK HOLE" I 
30 FOR A=255T0 0STEP -1;&C18 )=A;NEXT I 
40 CLEAR ;CY=40 

50 PRINT " SELECT SKILL LEUEL";PRINT 
60 PRINT " 1.EASY";PRINT 

70 INPUT “ENTER NUMBER TO GO'S 
80 H=0;0=0 

90 IF CS<1)+(S>3)G0T0 10 

100 CLEAR ;FC=7;BC=0;&C22)=200;&( 16)=235;&C 18 )=23E1; &C 20 )=200 
110 FOR A=1T0 50;BOX RND (160)-80,RND (80 )-40,1,1, 1;NEXT A 
170 X=-75;Y=40;B=0;C=0;M=0;N=15;D=-5;E=0 |640 NEXT A 

180 F=100;&( 23 )=255;BOX 0,0,7,7,1;BOX 0,0,5,5,2- 

200 IF M >0D=D~1 

201 IF M<0D=D+1 

202 IF N >0E=E-1 

203 IF N<0E=E+1 

210 BOX X,Y,3,3,3;BOX M,N,8,2,3;B OX M+2,N+1,1,2, 

220 I=JX<1);J=JYC1) 

230 IF FC1PRINT "NO FUEL1=0;J=0 

235 IF I#0&C 21)=255 

236 IF J#0&(21)=2S5 

237 IF I=0IF J=0&( 21)=0 

240 IF I#0BOX X-Ib2,Y,3,1,3;F=F-1 

241 IF J#0BOX X,Y-Jb2,1,3,3j F=F-1 
245 U=X;U=Y;B=B+I;C=C+J 
250 CY=44;PRINT #4,F,#4,H,#3,O 

260 IF X>0B=B-1 

261 IF X<0B=B+1 

262 IF Y >0C=C~1 

263 IF Y<0C=C+1 

265 IF X>78X=-78 

266 IF X<-78X=78 

267 IF Y>40Y=-40 

268 IF Y<-40Y=40 
270 X=X+B;Y=Y+C 

280 IF X<5IF X>-5IF Y<5IF Y>-5G0T0 1000 
290 IF S=1IF X>14IF XC16IF Y<10IF Y>-10IF C=5G0T0 500 
300 IF S=2IF X=15IF C=5IF Y>-5IF Y<5G0T0 500 
310 IF S=3IF X=15IF C=5IF Y=0IF B=0GOTO 500 
320 BOX U,O,3,3,3;BOX M,N,8,2,3;BOX M+2,N+l,1,2,3 
330 IF I#0BOX U-Ib2,0,3,1,3 
340 IF J#0BOX U,U-Jb2,1,3,3 
350 M=M+D;N=N+E 
360 GOTO 200 
500 CLEAR ;&(21)=0;0=0+1 

510 CY=0;PRINT "IN ORBIT NEAR THE CYGUS" 

520 FOR A=1T0 500;NEXT A;CLEAR 

530 FOR A=1T0 50;BOX RND (160)-80,RND C80)-40,1,1,1;NEXT A 
540 BOX 0,0,100,10,1 

_ 550 BOX 50,7,40^10^1^_—_-- 

555 BOX 0,30,15,15,1;BOX 0,30,11,11,2 
560 BOX 50,-7,40,10,1 
570 BOX 0,10,140,1,1 

580 box 0,-10,140,1,1 __ .r 7 :. I 


|650 LINE -70,-10,0 
660 FOR A=-65T0 65STEP 10 | 

1670 LINE A,10,3;LINE A+5,-10,3 
690 NEXT A 
698 X=-70;Y=-30 
700 FOR A=1T0 250 


710 BOX X, Y, 3,3,3 

720 BOX X,Y,3,3,3 : - 

730 X=X+JXC1);Y=Y+JY(1) 

740 NEXT A 

900 FOR A=1T0 2000;NEXT A 
910 GOTO 100 

1000 CLEAR ;H=H+1;&(21 )=0 
,1010 PRINT " LOST IN THE BLACK HOLE" 
104.5 FOR A=1T0 500; NEXT A^CLEAR 


1020 BOX 0,10,30,20,1;BOX -20,-30,10,6,1;BOX 20,-30,10,6,1 
11021 LINE -10,0,1;LINE -20,-30,1;LINE 20,-30,1;LINE 10,0,1 
ll030 FOR A=200TO 0STEP -1 
11040 BC=A; & ( 9) = 192;&(0 )=A+18; &( 1 )=A+23 
ll050 &C 2 )=A+35; &C 3 )=A+38; & ( 9 )=40 
jl-060 &C 20 )=A; &< 18 )=A; &( 16 )=A 
Il070 NEXT A; & C 22 )=0; CLEAR ; ftO TO 900 
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2 . 

3 .SLOT 
10 CLEAR 
20 PRINT 
30 PRINT 
40 PRINT 
45 PRINT 



;PRINT 

SLOT MACHINE" 

" 1. PULLS LEUER" 

" TRIGGER PULLS LEUER 
50 FOR A=1T0 1500 
G0 NEXT A 

35 CLEAR ;P=1000;W=0;L=0 
100 BOX 10,20,100,40,1 
110 FOR A=40TO 0STEP -5 
120 BOX 55,A,5,5,2 
130 NEXT A 

140 FOR A=0TO 40STEP 5 
150 BOX 55,A,5,5,1 
160 NEXT A 
170 CX=-10 
180 CY=-10 
130 PRINT #1,P 
200 FOR A=0TO 10 
210 NT=A 

220 B=RND C15)+88;C=RND (15)+88;D=RND C15 )+88 

230 CX=-20 

231 CY=20 

232 TU=B 

233 CX=0 

234 CY=20 

235 TU=C 

236 CX=20 

237 CY=20 

238 TU=D 
240 NEXT A 
245 NT=3 

250 IF B=CIF C=DGOTO 1000 
260 IF B=CGOTO 1100 
270 IF B=DGOTO 1100 
280 IF C=DGOTO 1100 
230 IF B=100GOTO 1200 
300 IF B=101GOTO 1200 
310 IF B=102GOTO 1200 
320 IF B=103GOTO 1200 
330 CX=-30 

332 CY=10 

333 PRINT #1,“YOU LOSE" 

334 L=L+1 

335 CX=50 

336 CY=-30 

337 PRINT #1, L 
340 FOR A=1T0 RND (10)+5 
350 P=P-RND (10) 

360 CX=-10 
370 CY=-10 
380 PRINT #1,P 
330 NEXT A 
400 IF PC1GOTO 2000 


800 CX=-70 

801 CY=-30 

802 PRINT #1,W 

810 IF &(23)=8G0T0 100 
812 IF P >30000GOTO 300 
815 IF &(23)=4GQT0 330 
820 IF &(23)=2G0T0 1000 
830 IF &(22)=2G0T0 1100 
840 IF &(21)=2G0T0 1200 
845 IF TR(1)GOTO 100 
850 GOTO 810 
300 FOR A=1T0 50 
310 PRINT * BUSTED ", 

320 NEXT A 
330 GOTO 2020 

1000 CX=-30 

1001 CY=10 

1010 PRINT #1,"JACKPOT" 
1020 FOR A= 1TQ RND (50)+50 


1030 FC=RND (32)b8+2;BC=RND (32)b8-l 
1040 P=P+RND (500)+50 


f850 CX=-10 

1060 CY=-10 

1070 PRINT #1,P 

1075 IF P >30000GQTO 30E 

1080 NEXT A 

1085 W=W+1 

1030 GOTO 800 

1100 CX=-30 

1101 CY=10 

1102 PRINT #1,"WINNER" 

1103 FOR A=1T0 RND (10 
1110 P=P+10 

1120 CX=-10. _ 

1130 CY=-10 
1135 FC=RND (32)b8+2 
1140 PRINT #1,P 
1150 NEXT A 

1160 W=W+1_ 


1170 GOTO 800 

1200 CX=-30 

1201 CY=10 

1202 PRINT #1,"WIN" 

1210 FOR A=1T0 RND (10 )+5 
1220 P=P+RND (10 ) 

1230 CX=-10 
1235 CY=-10 
1240 PRINT #1,P 
1250 NEXT A 


=W+1 
1270 GOTO 800 
2000 CLEAR 

2010 PRINT “YOU BLEW IT" 
20?0 PRINT " TURKEY" 


O-sz) 


BOWL-A-RAMA 
By Bob Hensel 
BO'.VL-A-HAI.'JV is a two player game. 

The computer displays the pins and 
keeps score. The ball is invisible 
at the bottom of the screen moving 
between the two gutters. "’hen the 
player UP pulls his trigger the ball 
appears and starts rolling down the 
alley. The player controls the 
curve on the ball by moving his joy 
stick left or right. The frame 
number is shown in the center box 
at the bottom of the screen. 
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2 -BY BOB HENSEL! 

3 :RETURN 

5 &(9)=28;&(0 )=25;&(1 )=25;&(2 )=31;&(3)=31;BC=6;FC=0;CLERR 
10 B=0;C=0;D=0;F=0;G=0;H=0;1=0;P=5;T=0;0=0;R=0 

-20 BOX -28,38,86,12,3;CX=-G4;CY=38;PRINT "BOUIL-R-RRMR';CX=-77;CY=24;PRINT "PLR 
YER 1 PLRYER 2" 

40 BOX -54,0,35,35,3;B0X -54,0,31,31,3;LINE -54,16,4;LINE -S4,5,1;LINE -38,5,1 
; BOX 0,0,35,35,3;BOX 0,0,31,31,3;LINE 0,16,4;LINE 0,5,1 

50 LINE 16,5,1;BOX -27,-30,30,16,3;BOX -27,-30,26,12,3;BOX -27,5,2,54,3 
310 BOX 55,0,34,87,1;BOX 41,0,1,87,3;BOX 68,0,1,87,3;E=2;GOSUB 1000 
320 E=1 

440 CX=R-57;CY=-33;PRINT ' ■;IF P>3P=0;F=F+1;Q=1;CX=-28;CY=-31;PRINT #1,F;R=0 

450 P=P+1;IF P>2Q=3;R=54 

i 455 IF P-Q=0CX=R-65;CY=10;PRINT * *;CX=R-47;CY=10;PRINT * * 

460 CX=R-57;CY=-33SPRINT "UP" 

500 IF Q=1U=1;GOTO 550 

510 U=2 |\ \ 
r550 ft=RND (23 )+43;IF TRCU)=0GOTO 550 
620 fl=R+JXCU) 

630 BOX fl,B-37,2,2,2;B=B+8;IF B>70GOTO 
650 IF R<44R=40;MU=“1”;GOTO 630 
660 IF R >668=70;MU=‘ 1 ‘ ;GOTO 630 
670 GOTO 620 

800 BOX 55,-7,26,72,1;IF fl<45G0T0 1100 
802 IF T=8IF R<64IF fl>47G0T0 1100 
810 IF R< 48G0T0 1020 
820 IF R<51G0T0 1010 
830 IF R<54G0T0 1000 
835 IF fl< 55G0T0 1070 
840 IF R<57IF P-Q=0E=2;GOTO 1070 
843 IF R< 57G0T0 1070 




\ 


n 


845 IF R<58G0T0 1070 
850 IF R<61G0T0 1030 
860 IF R< 64G0T0 1040 
870 IF RC67G0T0 1050 
880 GOTO 1100 
900 Y=30;X=55;W=0 
910 IF PX(X,Y)=0W=W+1 
920 X=X+2;IF X>64G0T0 940 
930 GOTO 910 

940 X=46;Y=Y+4;IF Y<43GOTO 910 
950 IF P-Q=0W=10-W;GOTO 970 
955 IF W=0T=10-T;GOTO 980 
960 W=10-T-W 
970 T=W 
980 RETURN 

1000 BOX 52,34,2,2,E;BOX 55,38,2,2,E;BOX 58,42,2,2,E 
1010 BOX 49,38,2,2,E;BOX 52,42,2,2,E 
1020 BOX 46,42,2,2,E;IF E#2G0T0. 1100 
1030 BOX 58,34,2,2,E;BOX 55,38,2,2,E;BOX 52,42, 

1040 BOX 61,38,2,2,E;BOX 58,42,2,2,E 
1050 BOX 64,42,2,2,E;IF E*2G0T0 1100 
1060 BOX 55,30,2,2,E;RETURN 
1070 BOX 55,35,22,16,1;IF E=1G0T0 1100 
1080 BOX 46,42, 2,2, E;BOX 64,42,2,2,E;E=1;GOTO 1100 

1100 GOSUB 900 ,- 

1105 IF Q=1J=C;K=D;GOTO 1120 
1110 J=G;K=H f 


1120 IF F#11J=j+t- 

1130 IF K>0J=J+T;K=K-1;IF K>1G0T0 1130 
1140 CX=R-60;CY=-5;PRINT #1,J;IF P-Q=1GOTO 1200 
1170 IF T#10CX=R-65;CY=10;PRINT #1,T;G0T0 1300 
1180 CX=R-47;CY=10;PRINT #1,-X';IF F=11G0T0 1300 
1190 K=K+2;P=P+1;GOTO 1300 

1200 CX=R-47;CY=10;IF W#0PRINT #1,T;G0T0 1300 

1205 IF T=0PRINT *1,T;G0T0 1300 

1210 PRINT #1, “S m i IF F*11K=K+1 

1300 IF Q=1C=J;D=K;GOTO 2000 

1310 G=J;H=K;GOTO 2000 

2000 B=0;IF F<10GOTO 3000 

2010 IF P-Q=0GOTO 3000 

2030 IF K=0GOTO 2070 

2035 IF K>1P=P-1 


, 2, E 


s-%. 


2050 P=P-1;F=11;GOTO 3030 
2070 F=10;IF P=4GOTO 5000 
3000 IF P-Q=0GOTO 440 
3030 T=0;GOTO 310 
5000 IF TR(1 )=0GOTO 5000 
5010 GOTO 5 
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1 .BQWL-R-RflMR 

2 .BY BOB HENSEL 

3 :RETURN [_ 

E &(9)=28;&(0)=25;&(1 )=25;&(2 )=31;&(3)=31;BC=G;FC=0;CLERR 

10 b= 0;c=0;D=0;F=0;G=0;H=0;I=0;P= 5 ;T=0;Q=0;R =0 

20 BOX -28,38,86,12,3;CX=-G4;CY=38;PRINT "BOWL-R-RRMRCX=-77;CY=24;PRINT 
YER 1 PLRYER 2" 

40 BOX -54,0,35,35,3;BOX -54,0,31,31,3;LINE -54,1G,4;LINE -54,5,1;LINE -3: 

;BOX 0,0,35,35,3;BOX 0,0,31,31,3;LINE 0,1G,4;LINE 0,5,1 

50 LINE 16,5,1;BOX -27,-30,30,16,3;BOX -27,-30,26,12,3;BOX -27,5,2,54,3 
310 BOX 55,0,34,87,1;BOX 41,0,1,87,3;BOX G8,0,1,87,3;E=2;GOSUB 1000 
320 E=1 

440 CX=R-57;CY=-33;PRINT * ";IF P>3P=0; F=F+1;Q=1;CX=-28;CY=-31;PRINT #1,F;R=0 

450 P=P+1;IF P>2Q=3;R=S4 

455 IF P-Q=0CX=R-B5;CY=10;PRINT “ ";CX=R-47;CY=10;PRINT " " 

460 CX=R-57;CY=-33;PRINT "UP" g 

500 IF 0=1U=1;GOTO 550 
i510 U=2 

l550 R=RND (23 )+43;IF TRCU)=0GOTO 550 
lS20 R=R-KJXCU) 

630 BOX R,B-37,2,2,2;B=B+8;IF B>70GGTO 800 
G50 IF fi< 44fl=40;NU=“1”;GOTO 630 
G60 IF fl>66R=70;MU='1";GOTO 630 
670 GOTO 620 

800 BOX 55,-7,26,72,1;IF R<45G0T0 1100 
802 IF T=8IF fl<G4IF R>47G0T0 1100 
f810 IF R<48G0TG 1020 
j820 IF R<51G0T0 1010 
830 IF R<54G0T0 1000 
j 835 IF R< 55G0T0 1070 

>840 IF R< 57IF P-Q=0E=2; GOTO 1070 ]. 

843 TE R<57G0T0 1070 
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845 IF R< 58G0T0 1070 
850 IF R<GlGOTO 1030 
860 IF R<64G0T0 1040 
870 IF R<67G0T0 1050 
880 GOTO 1100 
300 Y=30;X=5S;W=0 
810 IF PXC X,Y)=0W=W+1 
920 X=X+2;IF X >64G0T0 940 
930 GOTO 910 

940 X=4G;Y=Y+4;IF Y<43G0T0 910 
950 IF P-G=0W=10-W;GOTO 970 
955 IF W=0T=10-T;GOTO 980 
960 W=10-T-W 
970 T=W 

980 RETURN Wt- 

1000 BOX 52,34,2,2,E;BOX 55,38,2,2;E5 BOX 58,42,2,2,E 
1010 BOX 49,38,2,2,E;BOX 52,42,2,2,E 
1020 BOX 4G,42,2,2,E;IF E#2G0T0 1100 

1030 BOX 58,34,2,2,E;BOX 55,38,2,2,E;BOX 52,42,2,2,E 

1040 BOX 61,38,2,2,E;BOX 58,42,2,2,E 

1050 BOX 64,42,2,2,E;IF E#2G0T0 1100 

10G0 BOX 55,30,2,2,E;RETURN 

1070 BOX 55,35,22,16,1;IF E=lGOTO 1100 

1080 BOX 46,42,2,2,E;BOX 64,42,2,2,E;E=1;GOTO 1100 

1100 GOSUB 900 /- 

1105 IF Q=1J=C;K=D;GOTO 1120 
1110 J=G;K=H 


1120 IF F#11J=J+T 

1130 IF K>0J=J+T;K=K-1;IF K>lGOTO 1130 
1140 CX=R-60;CY=-5;PRINT #1,J;IF P-Q=lGOTO 1200 
1170 IF T#10CX=R-G5;CY=10;PRINT #l,T;GOTO 1300 
1180 CX=R-47;CY=10;PRINT #1,*X*;IF F=llGOTO 1300 
1190 K=K+2;P=P+1;GOTO 1300 

1200 CX=R-47;CY=10;IF W#0PRINT #l,T;GOTO 1300 

1205 IF T=0PRINT #l,T;GOTO 1300 

1210 PRINT #1,"/■;IF F#11K=K+1 

1300 IF Q=1C=J;D=K;GOTO 2000 

1310 G=J;H=K;GOTO 2000 

2000 B=0;IF FC10GOTO 3000 

2010 IF P-Q=0GOTO 3000 

2030 IF K=0GOTO 2070 

2035 IF K>1P=P-1 


C °”>s 

Cv ] 


2050 P=P-1;F=ll;GOTO 3030 
2070 F=10;IF P=4G0T0 5000 
3000 IF P-Q=0GOTO 440 
3030 T=0;GOTO 310 
5000 IF TRC1)=0GOTO 5000 
5010 GOTO 5 

wBk .___, B 
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95 

100 

110 

115 
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130 

140 
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1G0 

170 

180 

190 

200 

210 

220 

230 

240 

250 


. MRSTERMIND 
. CRROL BURKEMPER 
CLERR ;T=0;BC=140;FC 
@( 1)=RND (8)+48 
FOR Z=2T0 5 
@(Z)=RND (8 )+48 
BC=(BC+1 ) 

FOR Y=1T0 Z-l 
IF @( Z)=@(Y)GOTO 30 
NEXT Y;NEXT Z 
FOR R=33T0 -39STEP -H 
H=0; J=0;S=15;C=-83; L=77| 
BC=141;T=T+1 
BOX 3, R,139,7,2 
FOR B=11TO 15 
R=KP;@(B)=R 
IF R=57G0T0 500 
CY=R;CX=C;TU=R 
D=KP;IF B=31G0T0 110 
IF D#13GOTO 130 
C=C+14;NEXT B 
FOR W=1T0 5 
FOR B=11T0 15 
IF @CW)=@(B)GOSUB 300 
NEXT B;NEXT W 
IF H>0GOSUB 350 
IF J>0GO5UB 400 
IF H=5G0T0 250 
NEXT R 
GOTO 70 
BC=241;FC=7 
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280 
285 
270 
280 
| 300 
310 
330 
350 
350 
370 
380 
400 
410 
420 
430 
500 
510 
520 
530 
540 
550 
RUN 


PRINT ;PRINT ;CX=-50;PRINT #2,“CORRECT IN' 
PRINT ;PRINT " PRESS 'GO' TO STRRT 
R=KP;IF R=13G0T0 10 
GOTO 270 

IF BC15IF @(B)=@(B+l )RETURN 
IF @(W)=@(W+10) H=H+1;RETURN 
J=J+1;RETURN 
FOR N=1T0 H 

NT=G;MU=L;MU=(L-1);MU=(L+2);L=L-8;NT=3 
BOX S,R,8,6,1;S=S+15 
NEXT N;RETURN 
FOR N=1T0 J 

NT=7;MU=L;MU=L;MU=(L-2);L=L-8; NT=3 

BOX S,R,B,8 , 1;BOX S,R,4 , 4,2;S=S+15 

NEXT N;RETURN 

FOR G=1T0 5 

CY=C R-8 );CX=C 

TU=@(G) 

C=C+10 
NEXT G 

C=-S3;GOTO 110 
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BOWL-A-RAMA 
By Bob Hensel 

B077L-A-RAMA is a two player game. 

The computer displays the pins and 
keeps score. The ball is invisible 
at the bottom of the screen moving 
between the two gutters. TThen the 
player UP pulls his trigger the ball 
appears and starts rolling down the 
alley. The player controls the 
curve on the ball by moving his joy 
stick left or right. The frame 
number is shown in the center box 
at the bottom of the screen. 
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260 PRINT ;PRINT ;CX=-^01 PRINT #2,"CORRECT IN",T 
265 PRINT ;PRINT ■ PRESS 'GO' TO STRRT 
270 R=KP;IF fl=13G0T0 10 
280 GOTO 270 

300 IF BC15IF @(B )=@(B+l )RETURN 
310 IF @(W)=@(W+10) H=H+1;RETURN 
330 J=J+1;RETURN 
350 FOR N=1T0 H 

5 NT=6;MU=L;MU=CL-1);MU=(L+2);L=L-8;NT=3 
370 BOX S,R,6,6,1;S=S+15 
380 NEXT N;RETURN 
400 FOR N=1T0 J 

410 NT=7;MU=L;MU=L;MU=CL-2);L=L-8;NT=3 

420 BOX S,R,6,6,1;BOX S,R,4,4,2;S=S+15 

430 NEXT N;RETURN 

500 FOR G=1T0 5 

510 CY=(R-8);CX=C 

520 TU=@CG) 

530 C=C+10 

540 NEXT G 

550 C=-63;GOTO 110 

RUN 


2 . MRSTERMIND 

3 . CRROL BURKEMPER 
10 CLERR ;T=0;BC=140;FC= 

15 @(1 )=RND C 8 )+48 
20 FOR Z=2T0 5 
30 @CZ)=RND (8 )+48 
35 BC=(BC+1) 

40 FOR Y=1T0 Z-l 
50 IF @(Z)=@C Y)GOTO 30 
60 NEXT Y;NEXT Z 
70 FOR R=33T0 -39STEP -E 
80 H=0;J=0;5=15;C=-63;L=77 
90 BC=141;T=T+1 
95 BOX 3,R,139,7,2 

100 FOR B=11TO 15 
110 R=KP;@(B)=R 
115 IF R=57G0T0 500 
120 CY=R;CX=C;TU=fl 
130 D=KP;IF D=31G0T0 110 
140 IF D#13G0T0 130 
150 C=C+14;NEXT B 
160 FOR W=1T0 5 
170 FOR B=1ITO 15 
180 IF W)=@(B)GOSUB 300 
190 NEXT B;NEXT M 
200 IF H>0GOSUB 350 
210 IF J >0GOSUB 400 

, 220 IF H=5G0T0 250 

. 230 NEXT R ffff _ 

240 GOTO 70 

250 BC=241;FC=7 / 

F K)JECT ONE is on schedule. We expect te see the printed circuit beards some¬ 
time in June. 

BIQRYTHM of p.44 should have been noted as being the original output of Rich 
Tietjens. I've had some questions about the required operations to load it 
and the data, and so here is a clarification... 

On page 38 , the four line program is a general method for loading data, ini¬ 
tially described early last year, into the ® strings so that you can store 
than. In this case 87 items are stored. Line numbers only create a program, 
and are not necessary for a one-time job. Confusion arose because the numbers 
duplicate those in the base program. To load the data for the Bierythm pro¬ 
gram, use the following scheme - punch in the program from line 10 to 1160 . 
Then punch in the following which will only work once - 
:PRINT;LIST; FOR A = 0 TO 86; PRINT #1,"@(", A, INPUT @(A); NEXT A; 

PRINT " CLEAR; RUN" and then stop. Now start the Record function on your 
tape recorder and then pu£h GO. The Bally will read the sPRINT; and send data 
to controller port 3» It will read LIST; and list the program. And when that 
is done, it will do the A loop. You will see @ (0) = @(A) ■ on the screen, 
meaning that the computer is waiting for you to insert the value of @( 0 ) per 
the table. Page 45 lists this as 0, so enter 0 and press GO. The machine will 
then print @ (1) = 0 (a) ■ , asking for the second value, enter 10 and GO, 
then 19 and GO, etc. to the end. As you are doing this, the data is going 
into the computer and at the same time into the tape. You can now run the 
program. When you lead the program from the tape into the computer at seme 
future time, you will again see the @ statements, but with the answers as well. 
And you will probably get a WHAT? along with each one, disregard these. 
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MEMORY TUTORIAL #3 

The types of memory have been covered, now lets discuss the operation. The 
chip that contains the memory bank is, in itself, passive. That is, it requires 
an outside stimulus to make it work. It won't do anything on its own. The 
Central Processing Unit, CPU, is the controlling agent - in our case the Zilog Z-80, 
This device is factory-instructed to perfrom all the necessary operations, and is 
the heart of the computer. Programs in memory, ROM or RAM, are stored as a 
series of 0's and l’s. The CPU looks at the memory locations in sequence, and 
reads, interprets, and executes the program, one step at a time. Each 0 and 1 is 
called a bit and eight of these make a byte . Instructions usually require only one 
byte, but some complicated ones can take up to four. The Z-80 keeps reading the 
instructions as it goes along until it is told to STOP, or the program ends, or it 
is told to go to another memory location by a GOTO or GOSUB instruction. Memory 
locations contain the following types of bytes: Instructions, Data, Address, Device 
Code, and Displacement. 

The CPU has an INSTRUCTION SET, developed by the company engineers, that is a 
sort of menu of the things that it can do. These can be obtained from the 
manufacturer or some data books. This Set is used by the programmer to make up 
a program in Assembly Language. 

The CPU operates only in binary notation - 0's and l's, eight in a row, and 
this is called Machine Language. "01110110" and "00111110" are examples. With 

this scheme, it is difficult for the programmer to avoid errors. To make the 
operation somewhat simpler, the same information is converted to hexadecimal 
notation, reducing the 8 -unit figure to a 2-unit figure. The examples above 
convert to " 76 " and "3E". 

Combine the hex notation with a mnemonic (an aid to memory, don't pronounce 
the initial m) yields Assembly Language. This is still somewhat awkward for the 
casual operator such as ourselves to use. The above examples become "76 HALT" and 
"3E LD A,n". 

The next level up is a High Level Language such as BASIC, FORTRAN, COBOL, that 
we use to talk to the computer. A few words in this language require a lot of 
assembly or machine language commands, to be illustrated below. 

PROGRAMMING- The CPU needs ADDRESS and DATA information along with the 
instructions. Data is material that is generally stored by the user as a result 

of program input (what is your age? _), but some computers may have tables or 

conversion constants stored, etc. Address information tells it where to look in 
memory for specific items. 

Registers are areas within the CPU that are used as temporary storage positions 
If you wanted to operate on any memory item, it must be taken from memory and 
loaded into a register, operated upon, and then stored somewhere back in memory. 

The Z-80 has 12 registers available in two sets. A number 'taken' from memory 
does not erase that memory slot - the CPU merely reads the number and duplicates 
it in the register. 

To add two numbers together, we would write 10 INPUT A,B 

20 C = A + B 

While the computer programmer had to give this much detail to the CPU: 
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IHlS eKAMPLg 


just cowers t+ 4e step I £1 /N?or A. 5 S 


Fl.es T 

S-rep } 

\Nl lANJ^uA^t; 2 — 

_ ASsei^BC-/ ---*4 

0000 

3E 05 

LD A, 05j> Load Register- A Imtti decimal S he* -(irmat 

0002 

32 00 01 

LD(0I00), A Uai Nleworij locate 0100 ^ l^.sWA 

0005 

3E 0A 

LD A, I0d LW A J*«~t IO i. W£r«.t 

0007 

32 10 01 

LD (0110), A Leal Mevno/j location OllOiuHi Ccde-Cts <_j| Rec^istev A 

|NJ Be 

step 

»s/Af?Y THe ABo\I £ q&TS coofts<£ ; 

•5IW.-RY 

0000 

00IIIII0 

Load Reajisie r A Loiitv 

0001 

00000101 

decimal 5" i'v> 

0002 

00110010 

Load Wleiao/« Loca-Ao^ u/tBi co^Ae«.-fi fceaistei' A 

0003 

0000000 

J / ' 

k ,oo 

0004 

0000001 

©1 

0005 

00IIIII0 

Loo. A Ref^ IS 4ee~ /\ unth 

0006 

00001010 

deawa.( lO (*, 

0007 

00110010 

Loa-d h/le^oiCi. . /»untk «-/ ^<»ois1-er7\ 

0008 

00001010 

J \ / 

\ ( O 

0009 

0000001 

\ S 

G \ 

All —His To Lo^ Tujo Mumpers - 


— QJ ^T.f 0UR . r f5 ers t# a mini-memory scheme new underway that will provide 
oSe?atiii!i al R! K - 0f 1K of RCM ‘ J Prototype has been built and is 

w X * ? “ c f easin £ raemor y by 50%, the casual Bally user will be able 
small' !Lt l tW detail ° f program complexity, depth, and features at a 
small cost. We are now casting about for parts in quantity, and expect t© 

into the"S 1 nin kU f ® r ab * ut 75. by mid-summer. This unit plugs 

r b “° k ’ “ d hi “ S * pie UU U tbe ^ p “ 

WimG Is anyone interested in contract work to wire up some of these kit 
purposes! R * petiti0US WOrk ’ but must b * of highest caliber for reliability 

Almost all the programs submitted to me are the effort of one or 
another of our subscribers. Once in a while I receive a program that has 
been converted from one published in a magazine or other source. In order to 
provide proper credit to the originator, please indicate whether the program 
you are submitting is original or a conversion, variation, modification.,etc. 
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ADS V. Jupe reports that he no longer has any used Bally units. 


New Programs! Bowling, Keno and more. Send for complete descriptions 
Scott Waldinger 24740 Woodcroft Dr. Dearborn MI 48124 

Bally is unfixably broken, so I am selling my carts, BASIC,Interface, 
and software at low prices. In good condition. For more info write 
ioel Jacobs 972? Blantyre Dr. Beverly Hills, CA 90210 

LIFE IV and data on cassette or open reel w/documentation on program 
and game $3*50 your tape, $5*5° on mine Matt Giwer, 3922 Millcreek Dr. 
Annandale, VA 22003 

56-key Clare-Pender ASCII keyboard (#KB-6) - new surplus. Upper Case with 
instructions to add lower case with one switch. No Case. One only. 60. 

W. Munn NIII-WI 583 I Vienna Court #7 Germantown WI 53022 

FIRST of 4 program packages now available. Each package will contain 2, 

4, or ©ore programs, one per side of tape, instructions, documentation, 
etc. 9.95 each - Cost Effective Computer Services 1041 Ute, Grand Junction 
CO 81501 


Cod,: BASIC/MACHITO LATOtUGE 
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Scott Waldinger 
24740 Woodcroft Dr. 
Dearborn, MI 48124 



Dear Bob, 

I would appreciate it if you would enter the following ad in 
the next issue of the ARCADIAN: New programs! Bowling, Keno, and more. 
Send for complete descriptions. 

Scott Wal dinger 

24740 Woodcroft Dr. 

Dearborn, MI 48124 

I would also like to tell you to keep up the good work you are 
doing in the ARCADIAN. I don’t think CURSOR magazine is as good as 
the ARCADIAN and is priced much too highly for the amount of info they 
they put into it. Once again, keep up the good work. 


0 


Sincerely, 


Scott Waldinger 

P.S. Have you heard anything more about the letter of intent, and 
what Fidelity will do withhthe ARCADE if they do get BALLY 
Consumer Products Division? 





Sob - 

I'm eory I emldn'i type ih. ktaw bed I ktjx nttoihaf 
m km a. fmter if urn't be an moMmeme. id fio 
deaik i) fit Wb in the /^cADifiri. 

On ike 'htfz l <hn>£i l s /Haste-RMi^. [1 uses the 
regular AastermiV^ rules •■ die amputer urill ekttse. 5 
numbers bduiem I aid. 8, unttn m duptiaabs. film 
ike tturn "hm arm), ike player erthus 5 numbers 
4m 4ie keypad pressing 'op 'after mb enitu. C freest 
will allow a oimrent number in be sobsfduw before 
ao e,^r«s£^.') Tbe amfider u)$ id goo herd \jiu\le 
done aj giving you a. kollcu) Ware ior axoh mredt 
notviber, an6 a mck sfiatt w erb aonedt number 
in tSs oorr«ri 'position. (“The game is 'b 

ipul dad? scares first ^aidless of tobich number is 
Gorr«rtLj 'fostt(bn«6 f) l£W> you ioh,ihe game iv'tll fetl 
yt>o two Many gves&s fio made — on ine Sber hand, 
b^on? you 4lfuoo) a s hoe thro ike street), if y’mJ endec 
"3" instep of l 4bo 8, ike se/ttfrom utill appatC 

15 - bO -STORES 5 NUMBERS ItJ @ 61 ) - S Cs), NO IMPLICATES 
~T0f^FOR-~lb (TOP lODlOW POS mows aHARAOEZ ON) SdREEU 


R5 CLEARS i-INE OF TflENIOOS ENTRIES 

I# Tp 150 ENT EPS 5 NUMBERS FROM KEYPAD itJ f An)-fits) 

iwj! To\ia0 Spares auesses to mjswers 

sfth ID 3Sp SENiS OAUPOTER T> BOX SUBROUTINES 
,350 TO =380 UJHEW ALL 60ESK ARE CORRECT SCREEN} TURNS 



BLUE, "TELLS TOO H6u) AlAl)V ATTEMPTS fT "TOOK,, ERL. 
300 X) 334 yf4 fcLI Ml DATES tbOOBLE <SUESSlKl6 

31$ IF CORRECT UMBER 6 111 COfiftEdt" 'PDSmOl) 
A»6TD +( 

38$ «! STORES CORRECT DUJIBEE5 
'i5/> Tt) 33$ Ismfc "BLACK "St# RjR EAGft tl 
"t> 430 tbRAvOS -toLLOU) $0X fTR GAc-H J 
5 M> ID 55$ ^ISPLAVS SOLUTION 


I.W traltda) -/sr rehm cP dlw (ktsselk ~ mj 
kds hue «f mined so many 'dldf. I'd Irak 4d&e 
anAer ene dcsaffmr idfen m have. a. aharae, I'd 
affmoak if you ecM s?nd w mb. 




3. MAG TGRMiMD 

3. CARDk milftKEMPER 

10 CLEAR) T*(^3 ~Bd = 14$) FC=<$ 

15 @ OV RKH) (sV48 
50 For z = to 5 
30 @ (z) = RNt) Cs) +45 
35 BC= (BC+O 
40 FOR V a 1 TO Z'» 

50 IF @Gz) = QCY) 60 to 3$ 
bO NEXT V; NEXT Z. 

70 FOR R= 33 10-31 STEP-8 
80 tl = $j J-$j S’15; G=-k3j L=77 
10 T3C s HI; T=T+\ 

15 "BOX 3,R,I3%7,:2 

IOO For B--II TO 15 

HO A= KP)^CB) = A 

115 IF A - 57 aOTD 5$$ 

l<PO Gy-Rj CX = Cj lV*A 

l30^=KPj IF T> = 31 aoiD 110 

140 IF 7* 13 ao ID 13$ 

150 G = G-+14 j MEXT B 
IkO FOR \AJ = I 70 5 
170 FOR B-II "to 15 
180 IF @ (vf) - @ OB') SOSUB 3pd 
110 MEXT Bj NEXT W 
0)0 \F H>$ 605UB 35$ 



<£10 IF J >0 aoSUB At<t> 

IP H =5 (be JO <350 
<330 MEXT K 

<340 ao TO T0 t 

350 BC= 341) FC = 7 

3bO TRlMT; TRIUT; OX =“50; "CORRECT \ti\ T 

QkS TRlMT) pRlNT "___ PRESS 'ao' TO START 
370 A- KPj |F A- 13 <30 70 10 
060 ao ID 370 

300 IF B< 15 IF @0B)= RETURN] 

310 IF QC\ A)V^(na)-HO) H-^l) RETURN] 

330 J=>|; RETURN 
350 FOR N = l ID H 

3bD NT *U>jMO=L) MU-a-Oj M- a+3)) La-8) NT=3 
370 BOX S, R,b, U, I j S*S+I5 
380 NEXT Nl) RETURN 
-TOO FOR N - 1 TO vA 

A10 K]T=~7) M0= J-) AAO = JL> M\)* L* L -83 NT =3 

4P0 BOX S,R», I, BOX 6^4,4,^) S=S-H5 
430 MEXT NJ; RFTDRFl 
500 FOR ^ HO 5 

310 cv* cr-q)) ax=a 

550 TV* @ £ 6 ) 

530 OL = a-HO 
540 NEXT a 
560 a ^-03; ao to no 



